home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlxinstl.zip / BORDER.ASM < prev    next >
Assembly Source File  |  1991-10-17  |  1KB  |  134 lines
  1. PAGE    58,    132
  2. TITLE    BORDER
  3. SUBTTL BORDER
  4.  
  5. .model small
  6.  
  7. EXTRN    screen_attr:byte
  8.  
  9. TR    MACRO
  10.     PUSH    DI
  11.     CLD
  12.     MOV    DI,158
  13.     MOV    AL,187
  14.     MOV    AH,screen_attr
  15.     MOV    CX,1
  16.     REP    STOSW
  17.     POP    DI
  18.     ENDM
  19.  
  20. BR    MACRO
  21.     PUSH    DI
  22.     CLD
  23.     MOV    DI,3998
  24.     MOV    AL,188
  25.     MOV    AH,screen_attr
  26.     MOV    CX,1
  27.     REP    STOSW
  28.     POP    DI
  29.     ENDM
  30.  
  31.  
  32. TL    MACRO
  33.     PUSH    DI
  34.     CLD
  35.     MOV    DI,0
  36.     MOV    AL,201
  37.     MOV    AH,screen_attr
  38.     MOV    CX,1
  39.     REP    STOSW
  40.     POP    DI
  41.     ENDM
  42.  
  43. BOTL      MACRO
  44.     PUSH    DI
  45.     CLD
  46.     MOV    DI,3840
  47.     MOV    AL,200
  48.     MOV    AH,screen_attr
  49.     MOV    CX,1
  50.     REP    STOSW
  51.     POP    DI
  52.     ENDM
  53.  
  54.  
  55. TOP    MACRO
  56.     PUSH    DI
  57.     CLD
  58.     MOV    DI,2
  59.     MOV    AL,205
  60.     MOV    AH,screen_attr
  61.     MOV    CX,78
  62.     REP    STOSW
  63.     POP    DI
  64.     ENDM
  65.  
  66. BOTTOM    MACRO
  67.     PUSH    DI
  68.     CLD
  69.     MOV    DI,3842
  70.     MOV    AL,205
  71.     MOV    AH,screen_attr
  72.     MOV    CX,78
  73.     REP    STOSW
  74.     POP    DI
  75.     ENDM
  76.  
  77. LEFT    MACRO
  78. LOCAL    leftloop
  79.     PUSH    DI
  80.     CLD
  81.     MOV    DI,160
  82.     mov      bl,23
  83. leftloop:
  84.     MOV    AL,186
  85.     MOV    AH,screen_attr
  86.     MOV    CX,1
  87.     REP    STOSW
  88.     add      di,158
  89.     dec      bl
  90.     cmp      bl,0
  91.     jne      leftloop
  92.     POP    DI
  93.     ENDM
  94.  
  95. RIGHT    MACRO
  96. LOCAL    RIGHTLOOP
  97.     PUSH    DI
  98.     CLD
  99.     MOV    DI,318
  100.     mov      bl,23
  101. RIGHTLOOP:
  102.     MOV    AL,186
  103.     MOV    AH,screen_attr
  104.     MOV    CX,1
  105.     REP    STOSW
  106.     add      di,158
  107.     dec      bl
  108.     cmp      bl,0
  109.     jne      rightloop
  110.     POP    DI
  111.     ENDM
  112.  
  113. PAGE
  114. BORDER_CODE   SEGMENT PUBLIC    'CODE'
  115.  
  116. SUBTTL BORDER
  117. BORDER      PROC      FAR
  118.     ASSUME    CS:BORDER_CODE
  119.     PUBLIC    BORDER
  120.  
  121.     TL
  122.     TOP
  123.     TR
  124.     BOTL
  125.     BOTTOM
  126.     BR
  127.     LEFT
  128.     RIGHT
  129.  
  130.     RET
  131. BORDER    ENDP
  132. BORDER_CODE   ENDS
  133.     END    BORDER
  134.